0 POKE53280,1:PRINT"[147]"TAB(12)"RAPID RANDOMIZER":PRINT"PLEASE WAIT..."
1 REM ==================================
2 REM    COMMODARES PROBLEM #55-2 :
3 REM       RAPID RANDOMIZER
4 REM    SOLUTION BY
5 REM       JIM BORDEN
6 REM ==================================
10 N=100: DIM X(N): FOR I=1 TO N: X(I)=I: NEXT
20 T0=TI
30 FORX=1TON:I=RND(1)*N+1:T=X(X):X(X)=X(I):X(I)=T:NEXT
40 PRINT TI-T0"JIFFIES"
50 FOR I=1 TO N:PRINT X(I);:NEXT